[30m-- [1mAttaching packages[22m --------------------------------------- tidyverse 1.2.1 --[39m
[30m[32mv[30m [34mggplot2[30m 3.1.0 [32mv[30m [34mpurrr [30m 0.3.1
[32mv[30m [34mtibble [30m 2.0.1 [32mv[30m [34mdplyr [30m 0.8.0.[31m1[30m
[32mv[30m [34mtidyr [30m 0.8.3 [32mv[30m [34mstringr[30m 1.4.0
[32mv[30m [34mreadr [30m 1.3.1 [32mv[30m [34mforcats[30m 0.4.0 [39m
package 㤼㸱purrr㤼㸲 was built under R version 3.5.3[30m-- [1mConflicts[22m ------------------------------------------ tidyverse_conflicts() --
[31mx[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
[31mx[30m [34mdplyr[30m::[32mlag()[30m masks [34mstats[30m::lag()[39m
Attaching package: 㤼㸱rlang㤼㸲
The following objects are masked from 㤼㸱package:purrr㤼㸲:
%@%, as_function, flatten, flatten_chr, flatten_dbl, flatten_int,
flatten_lgl, flatten_raw, invoke, list_along, modify, prepend, splice
package 㤼㸱leaflet㤼㸲 was built under R version 3.5.3
Parsed with column specification:
cols(
.default = col_character(),
zip = [32mcol_double()[39m,
`Phone Number` = [32mcol_double()[39m,
score = [32mcol_double()[39m,
longitude = [32mcol_double()[39m,
latitude = [32mcol_double()[39m,
population = [32mcol_double()[39m,
poverty = [32mcol_double()[39m,
percent = [32mcol_double()[39m,
poverty_percent = [32mcol_double()[39m
)
See spec(...) for full column specifications.
Call:
lm(formula = hospitals ~ population, data = hospital_sample)
Residuals:
Min 1Q Median 3Q Max
-10.7909 -0.7106 0.0908 0.2498 8.3805
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 7.027e-01 3.942e-02 17.83 <2e-16 ***
population 7.907e-06 1.182e-07 66.90 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 1.149 on 941 degrees of freedom
Multiple R-squared: 0.8263, Adjusted R-squared: 0.8261
F-statistic: 4475 on 1 and 941 DF, p-value: < 2.2e-16
LS0tDQp0aXRsZTogIkFjY2VzcyB0byBjYXJlIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3J9DQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCmxpYnJhcnkocmxhbmcpDQpsaWJyYXJ5KGxlYWZsZXQpDQpgYGANCg0KYGBge3J9DQpob3NwaXRhbHMgPC0gcmVhZF9jc3YoIi4uL2RhdGEvaG9zcGl0YWxfbGlzdC5jc3YiKQ0KaG9zcGl0YWxzDQpgYGANCg0KYGBge3J9DQpob3NwaXRhbF9sb2NhdGlvbnMgPC0gaG9zcGl0YWxzICAlPiUNCiAgc2VsZWN0KHN0YXRlLCBsb25naXR1ZGUsIGxhdGl0dWRlKQ0Kd3JpdGVfcmRzKGhvc3BpdGFsX2xvY2F0aW9ucywgIi4uL2RhdGEvaG9zcGl0YWxfbG9jYXRpb25zLnJkcyIpDQpob3NwaXRhbF9sb2NhdGlvbnMNCmBgYA0KDQpgYGB7cn0NCnBvcHVsYXRpb24gPC0gdXNtYXA6OmNvdW50eXBvcA0KDQpob3NwaXRhbF9jb3VudCA8LSBob3NwaXRhbHMgJT4lDQogIGNvdW50KHN0YXRlLCBvcmlnaW5hbF9jb3VudHkpIA0KDQoNCnN0YXRlX2hvc3BpdGFscyA8LSBwb3B1bGF0aW9uICU+JQ0KICBsZWZ0X2pvaW4oaG9zcGl0YWxfY291bnQsIGJ5ID0gYygiYWJiciIgPSAic3RhdGUiLCAiY291bnR5IiA9ICJvcmlnaW5hbF9jb3VudHkiKSkgJT4lDQogIG11dGF0ZShob3NwaXRhbHMgPSBpZmVsc2UoaXMubmEobiksIDAsIG4pKSAlPiUNCiAgc2VsZWN0KA0KICAgIGZpcHMsIA0KICAgIHN0YXRlID0gYWJiciwgDQogICAgY291bnR5LCANCiAgICBwb3B1bGF0aW9uID0gcG9wXzIwMTUsDQogICAgaG9zcGl0YWxzDQogICAgKQ0KDQpzdGF0ZV9ob3NwaXRhbHMNCmBgYA0KDQoNCg0KDQpgYGB7cn0NCnNldC5zZWVkKDEwMCkNCg0KaG9zcGl0YWxfc2FtcGxlIDwtIHN0YXRlX2hvc3BpdGFscyAlPiUNCiAgc2FtcGxlX2ZyYWMoMC4zKQ0KDQpob3NwaXRhbF9zYW1wbGUNCmBgYA0KDQpgYGB7cn0NCm1vZGVsIDwtIGxtKGhvc3BpdGFscyB+IHBvcHVsYXRpb24sIGRhdGEgPSBob3NwaXRhbF9zYW1wbGUpDQp3cml0ZV9yZHMobW9kZWwsICIuLi9kYXRhL21vZGVsLnJkcyIpDQpzdW1tYXJ5KG1vZGVsKQ0KYGBgDQoNCmBgYHtyfQ0KcHJlZGljdGlvbnMgPC0gcHJlZGljdChtb2RlbCwgDQogIG5ld2RhdGEgPSBzdGF0ZV9ob3NwaXRhbHMsIA0KICBpbnRlcnZhbCA9ICJwcmVkaWN0aW9uIikgJT4lDQogIGFzX3RpYmJsZSgpICU+JQ0KICBtdXRhdGVfYWxsKHJvdW5kKQ0KDQpwcmVkaWN0aW9ucw0KYGBgDQoNCmBgYHtyfQ0KaG9zcGl0YWxfcmVzdWx0cyA8LSBzdGF0ZV9ob3NwaXRhbHMgJT4lDQogIGJpbmRfY29scyhwcmVkaWN0aW9ucykgJT4lDQogIG11dGF0ZShyZXN1bHQgPSBjYXNlX3doZW4oDQogICAgaG9zcGl0YWxzIDwgbHdyIH4gLTEsDQogICAgaG9zcGl0YWxzID4gdXByIH4gMSwNCiAgICBUUlVFIH4gMCkpICU+JQ0KICBtdXRhdGUoDQogICAgY291bnR5X2tleSA9IHN0cl9yZW1vdmVfYWxsKGNvdW50eSwgIiBDb3VudHkiKSwNCiAgICBjb3VudHlfa2V5ID0gc3RyX3JlbW92ZV9hbGwoY291bnR5X2tleSwgIiBQYXJpc2giKSwNCiAgICBjb3VudHlfa2V5ID0gc3RyX3JlbW92ZV9hbGwoY291bnR5X2tleSwgIiBjaXR5IiksDQogICAgY291bnR5X2tleSA9IHN0cl90b19sb3dlcihjb3VudHlfa2V5KSwNCiAgICBjb3VudHlfa2V5ID0gc3RyX3JlbW92ZV9hbGwoY291bnR5X2tleSwgIiAiKSwNCiAgICBjb3VudHlfa2V5ID0gc3RyX3JlcGxhY2VfYWxsKGNvdW50eV9rZXksICJzdC4gIiwgInNhaW50IiksDQogICAgICApICANCg0Kd3JpdGVfcmRzKGhvc3BpdGFsX3Jlc3VsdHMsICIuLi9kYXRhL2hvc3BpdGFscy5yZHMiKQ0KDQpob3NwaXRhbF9yZXN1bHRzIA0KYGBgDQoNCiMjIFN0YXRlIG1hcA0KDQpgYGB7cn0NCnNoYXBlcyA8LSByZWFkX3JkcygiLi4vZGF0YS9zaGFwZXMucmRzIikgJT4lDQogIG11dGF0ZSgNCiAgICBjb3VudHlfa2V5ID0gc3RyX3RvX2xvd2VyKGNvdW50eSksDQogICAgY291bnR5X2tleSA9IHN0cl9yZW1vdmVfYWxsKGNvdW50eV9rZXksICIgIiksDQogICAgY291bnR5X2tleSA9IHN0cl9yZXBsYWNlX2FsbChjb3VudHlfa2V5LCAic3QuICIsICJzYWludCIpDQogICkgDQoNCnNoYXBlcyANCmBgYA0KYGBge3J9DQpjb3VudHlfaG9zcGl0YWxzIDwtIGhvc3BpdGFsX3Jlc3VsdHMgICU+JQ0KICBzZWxlY3QoLSBjb3VudHkpICU+JQ0KICBsZWZ0X2pvaW4oc2hhcGVzLCBieSA9IGMoInN0YXRlIiwgImNvdW50eV9rZXkiKSkgJT4lDQogIGZpbHRlcihzdGF0ZSAhPSAiUFIiLCBzdGF0ZSAhPSAiQUsiKSAlPiUNCiAgZmlsdGVyKCFpcy5uYShjb3VudHkpKQ0KDQp3cml0ZV9yZHMoY291bnR5X2hvc3BpdGFscywgIi4uL2RhdGEvY291bnR5X2hvc3BpdGFscy5yZHMiLCBjb21wcmVzcyA9ICJneiIpDQoNCmNvdW50eV9ob3NwaXRhbHMNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkoZnMpDQoNCnBhdGgoIi4uIiwiZGF0YSIsIGMoImNvdW50eV9ob3NwaXRhbHMucmRzIiwgImhvc3BpdGFsX2xvY2F0aW9ucy5yZHMiLCAibW9kZWwucmRzIikpICU+JQ0KICBmaWxlX2NvcHkoIi4uL2ZsZXhkYXNoYm9hcmQiLCBvdmVyd3JpdGUgPSBUUlVFKQ0KDQpwYXRoKCIuLiIsImRhdGEiLCBjKCJjb3VudHlfaG9zcGl0YWxzLnJkcyIsICJob3NwaXRhbF9sb2NhdGlvbnMucmRzIikpICU+JQ0KICBmaWxlX2NvcHkoIi4uL1JNYXJrZG93bi1odG1sIiwgb3ZlcndyaXRlID0gVFJVRSkNCg0KcGF0aCgiLi4iLCJkYXRhIiwgYygiY291bnR5X2hvc3BpdGFscy5yZHMiLCAiaG9zcGl0YWxfbG9jYXRpb25zLnJkcyIpKSAlPiUNCiAgZmlsZV9jb3B5KCIuLi9STWFya2Rvd24tcGRmIiwgb3ZlcndyaXRlID0gVFJVRSkNCg0KcGF0aCgiLi4iLCJkYXRhIiwgYygibW9kZWwucmRzIiwgImhvc3BpdGFscy5yZHMiLCAiaG9zcGl0YWxfbG9jYXRpb25zLnJkcyIpKSAlPiUNCiAgZmlsZV9jb3B5KCIuLi9wbHVtYmVyLWFwaSIsIG92ZXJ3cml0ZSA9IFRSVUUpDQoNCmBgYA0KDQoNCmBgYHtyfQ0Kc3RhdGVzIDwtIGNvdW50eV9ob3NwaXRhbHMgJT4lDQogIGdyb3VwX2J5KHN0YXRlKSAlPiUNCiAgc3VtbWFyaXNlKCkgJT4lDQogIHB1bGwoKQ0KDQpgYGANCg0KDQpgYGB7cn0NCg0KdW5kZXIgPC0gIiNDQzc5QTciDQpvdmVyIDwtICIjMDA3MkIyIg0KYXRfbGV2ZWwgPC0gIiMwMDhiMDAiDQpob3NwaXRhbF9jb2xvciA8LSAiI0YwRTQ0MiINCnN0IDwtIGMoIkxBIikNCiNzdCA8LSBzdGF0ZXMNCmluY2x1ZGUgPC0gYygtMSwgMSwgMCkNCmFkZF9ob3NwaXRhbHMgPC0gMA0KDQppbml0aWFsX21hcCA8LSBsZWFmbGV0KCkgJT4lDQogIGFkZFByb3ZpZGVyVGlsZXMocHJvdmlkZXJzJENhcnRvREIpICU+JQ0KICBhZGRMZWdlbmQoImJvdHRvbXJpZ2h0IiwgDQogICAgICAgICAgICBjb2xvciAgPSBjKHVuZGVyLG92ZXIgLGF0X2xldmVsLCBob3NwaXRhbF9jb2xvciksIA0KICAgICAgICAgICAgbGFiZWxzID0gYygiTGVzcyBob3BpdGFscyB0aGFuIGV4cGVjdGVkIiwNCiAgICAgICAgICAgICAgICAgICAgICAgIk1vcmUgaG9zcGl0YWxzIHRoYW4gZXhwZWN0ZWQiLCAiV2l0aGluIFJhbmdlIiwgDQogICAgICAgICAgICAgICAgICAgICAgICJIb3NwaXRhbCBMb2NhdGlvbiIpLCANCiAgICAgICAgICAgIHRpdGxlICA9ICJMZWdlbmQiLG9wYWNpdHkgPSAwLjUpDQoNCmxvY2F0aW9ucyA8LSBob3NwaXRhbF9sb2NhdGlvbnMgJT4lDQogIGZpbHRlcihzdGF0ZSAlaW4lIHN0KSAlPiUNCiAgc2VsZWN0KGxvbmdpdHVkZSwgbGF0aXR1ZGUpICU+JQ0KICBtdXRhdGVfYWxsKHJvdW5kLCAzKSAlPiUNCiAgY291bnQobG9uZ2l0dWRlLCBsYXRpdHVkZSkgJT4lDQogIG11dGF0ZShwb3B1cCA9IHBhc3RlMCgiSG9zcGl0YWxzOiAiLCBuKSkNCg0KY291bnRpZXMgPC0gY291bnR5X2hvc3BpdGFscyAlPiUgDQogIGZpbHRlcihzdGF0ZSAlaW4lIHN0LA0KICAgICAgICAgcmVzdWx0ICVpbiUgaW5jbHVkZSkgJT4lDQogIG11dGF0ZShwb3B1cCA9IHBhc3RlMCgiPGI+IiwgY291bnR5LCAiPC9iPiIsDQogICAgICAgICAgICAgICAgICAgICAgICAiPGJyLz5Qb3B1bGF0aW9uOiAiLCBwcmV0dHlOdW0ocG9wdWxhdGlvbiwgYmlnLm1hcmsgPSAiLCIpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICI8YnIvPkhvc3BpdGFsczogIiwgaG9zcGl0YWxzLA0KICAgICAgICAgICAgICAgICAgICAgICAgIjxici8+RXhwZWN0ZWQ6ICIsIGZpdA0KICAgICAgICAgICAgICAgICAgICAgICAgKSkgJT4lICANCiAgbXV0YXRlKGNvbG9yID0gY2FzZV93aGVuKA0KICAgIHJlc3VsdCA9PSAgMCAgfiBhdF9sZXZlbCwNCiAgICByZXN1bHQgPT0gIDEgIH4gb3ZlciwNCiAgICByZXN1bHQgPT0gLTEgIH4gdW5kZXINCiAgKSkgDQoNCmNvdW50eV9tYXAgPC0gY291bnRpZXMgJT4lDQogIHRyYW5zcG9zZSgpICU+JQ0KICBtYXAofnsNCiAgICBjb3VudHkgPC0gLngNCiAgICAgdHJhbnNwb3NlKGNvdW50eSRkYXRhKSAgJT4lDQogICAgICAgbWFwKH5saXN0KA0KICAgICAgICAgZGF0YSA9IC54JGRhdGEsIA0KICAgICAgICAgY29sb3IgPSBjb3VudHkkY29sb3IsDQogICAgICAgICBwb3B1cCA9IGNvdW50eSRwb3B1cA0KICAgICAgICAgKSkNCiAgICB9KSAlPiUNCiAgZmxhdHRlbigpICU+JQ0KICByZWR1Y2UoDQogICAgfiBhZGRQb2x5Z29ucygueCwgDQogICAgICAgICAgICAgICAgICBsbmcgPSAueSRkYXRhJGxvbmcsIA0KICAgICAgICAgICAgICAgICAgbGF0ID0gLnkkZGF0YSRsYXQsIA0KICAgICAgICAgICAgICAgICAgY29sb3IgPSAueSRjb2xvciwgDQogICAgICAgICAgICAgICAgICBwb3B1cCA9IC55JHBvcHVwLA0KICAgICAgICAgICAgICAgICAgd2VpZ2h0ID0gMSwgZmlsbE9wYWNpdHkgPSAwLjMpLCANCiAgICAuaW5pdCA9IGluaXRpYWxfbWFwKSAgDQoNCg0KaWYoYWRkX2hvc3BpdGFscyA9PSAxKSB7DQogIGNvdW50eV9tYXAgPC0gY291bnR5X21hcCAlPiUNCiAgICBhZGRDaXJjbGVNYXJrZXJzKA0KICAgICAgbG5nID0gbG9jYXRpb25zJGxvbmdpdHVkZSwgDQogICAgICBsYXQgPSBsb2NhdGlvbnMkbGF0aXR1ZGUsDQogICAgICByYWRpdXMgPSAxLjUgKmxvY2F0aW9ucyRuLA0KICAgICAgcG9wdXAgPSBsb2NhdGlvbnMkcG9wdXAsDQogICAgICBmaWxsQ29sb3IgPSBob3NwaXRhbF9jb2xvciwgY29sb3IgPSAiZ3JheSIsIA0KICAgICAgZmlsbE9wYWNpdHkgPSAwLjcsd2VpZ2h0ID0gMSkNCiAgfSANCg0KY291bnR5X21hcA0KICANCmBgYA0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQo=